home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog76 < prev    next >
Encoding:
Text File  |  1995-06-29  |  698 b   |  32 lines
  1. # simple pushButton test
  2. xtAppInitialize -class Program \
  3.     -fallbackResources {
  4.     {*label1.cstextValue: page 1 text}
  5.     {*label2.cstextValue: page 2 text in here @n and more}
  6.     }
  7.     
  8.  
  9. xmNotebook .notebook managed
  10.  
  11. for {set i 0} {$i <= 10} {incr i} {
  12.     xmFrame .notebook.frame$i managed \
  13.     -notebookChildType page \
  14.     -pageNumber $i
  15.     xmCSText .notebook.frame$i.label$i managed
  16.     xmLabel .notebook.label$i managed \
  17.     -labelString "page $i" \
  18.     -notebookChildType status_area \
  19.     -pageNumber $i
  20. }
  21.  
  22. # for {set i 4} {$i <= 10} {incr i 3} {
  23. #     xmPushButton .notebook.btn$i managed \
  24. #     -labelString "major $i" \
  25. #     -notebookChildType major_tab \
  26. #     -pageNumber $i
  27. # }
  28.  
  29. . realizeWidget
  30.  
  31. . mainLoop
  32.